﻿Class CheckBoxObserver
    Inherits NamedStatusObserver

    Private checkBox As CheckBox

    Sub New(ByRef aCheckBox As CheckBox, ByVal aProcessItem As ProcessItem)
        MyBase.New(aProcessItem)
        checkBox = aCheckBox
    End Sub

    Overrides Sub Notify()
        Dim processItem = DirectCast(statusClass, ProcessItem)
        checkBox.Text = statusClass.getName()
        checkBox.Checked = processItem.isDone()
    End Sub

End Class
